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NUMBER 



NAME 



QUI 



SECTION DICTIONARY 



01 


CPAGM 


0000407 


02 


CPATCH 


0000000 


03 


CPATCH1 


0000000 


04 


CPATCH2 


0000412 


05 


CPATCH3 


0000000 


06 


CPATCH7 


0000000 


07 


TFAPCH2 


0000000 


08 


TPATCH 


0000000 



MAXIMUM ORIGIN TYP ADDRESS-MODIFICATION 
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A1 
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0007355 
0007355 
0007355 



C01 



VERSION W770 OF SWAP; VERSION 



01 
02 
03 
04 
05 
06 
07 
08 
09 



OF EPL 



DBNAM N033E3I3. OFF. DATABASE 

RELNAM N03ESS 

GETUB LIBRARY, MEMBER=MOPTBL 

GETLIB LIBRARY,MEMBER=SrSMAC 

GETLIB LIBRARY,MEMBER=SYSSYM 

GETLIB LIBRARY,MEMBER=PATCH2 

FIRSTOPTSS 

VERSION 3ACC, FIELD, ESS2E 

PATCHINIT 



• 



• • 



0:37:15 2/06/81 **** 
CPAGM W77D 



10 N033E3I3.0FF.OPMS(0) DECK 

11 DSQ.UAL N033E3I3 

12 LISTING N,CRUNCH=Y,SYSOUT=N 

13 MHH##ttUHUnHtHtHtiH# 

u nn 

15 fttt UNIX ID = N03PAG 

16 UU 

17 nMHttUHHHHitHltttHttU 

1 8 ttH*ttttHttHlt#tiHHH#ttttHHHH#ll#H#HHHHtiHM#MH#UUHHHH# 

19 HHU 

20 ItHltH pid date time rel 

21 tttttt 

22 MM cpagm 1/24/81 18:02:39 7.1.1.1 

23 *H» 

24 HHttHHHMtHtHHtltlHttHUHHHHtHHtMHItnHHMHttMtliUmtt 

25 NAME CPAGM 



0007355 



29 tlt> The following 1a a list of the valid csects for program CPAGM 
31 CPAGM CSECT 



0111432 
0112562 
0114107 
0115073 
0121236 

0116774 

0600000 



34 HH The following csects are necessary for patching 

36 CPATCH CSECT 

37 CPATCH1 CSECT 

38 CPATCH2 CSECT 

39 CPATCH3 CSECT 

40 CPATCH7 CSECT 

42 TFAPCH2 CSECT 
44 TPATCH CSECT 
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0007355 



001 



0:37:15 2/06/81 **** 
CPAGM W77D 



01 


GETLIB 


MEMBER'TAPSYM 


02 


GETLIB 


MEMBER=TAPMAC 


03 


GETLIB 


MEKBER=GPMAC 


04 


GETLIB 


MEMBER=CCSYM 


05 


GETLIB 


MEMBER=TTYMAC 


06 


GETLIB 


MEMBER=TTYSYM 


07 


GETLIB 


MEMBER=BSAIMAC 


08 


GETLIB 


MEMBER=CTVTAB 


09 CPAGM 


CSECT 
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0:37:15 2/06/81 **** 
CPAGM W77D 



01 


PUBLIC 


EXPAGREQ 


02 


PUBLIC 


MAPCHK 


03 


PUBLIC 


OP 


04 


PUBLIC 


PAGMON 


05 


PUBLIC 


PAGEUN 
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0:37:15 2/06/81 **** 
CPAGM W770 



01 


DLMHA 


EXTERN 


MSFCLVl 


02 


OLMMA 


EXTERN 


TEMPINH_ 


03 


CBLM 


EXTERN 


WAIT 


04 


CSYSUB 


EXTERN 


CLR WRDS 


05 


CSYSUB 


EXTERN 


MOVST 


06 


CTAPH 


EXTERN 


BLKDATA 


07 


CTSD 


EXTERN 


PAGEMAP 


08 


CTSD 


EXTERN 


PlB 


09 


IATOUT 


EXTERN 


HGAREA 


10 


LArOUT 


EXTERN 


I OBUF 


11 


MASACS 


EXTERN 


MAXWDS 


12 


SE6000 


EXTERN 


SEGTA8 
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601 



0:37:15 



2/06/81 **** 



LAYOUTS 



01 PCB 


LAYOUT 


4,FLTBLK 


02 RTNH4 


ITEM 


4 


03 OP 


ITEM 


1 


04 WRDCNT 


ITEM 


11 


05 RTNL16 


ITEM 


16 


06 ROSAVE 


ITEM 


16 


07 R1SAVE 


ITEM 


16 



CPAGM 

« PAGE MONITOR CONTROL BLOCK 
AfRETURN ADDR. HIGH BITS 

ffCOUNT OF WORDS MOVED 
^RETURN ADDR. LOW BITS 
#R0 SAVE AREA 
#R1 SAVE AREA 



W77D 



08 



LOEND 



PC8_, 
00 1 

l_ 
011 



021' 
I 
031" 



HRDCNT 

£fiUNI_2£_«SRDS_i!2VEB __„__ 

.BEI-BN__p ! eR_J,P_w_B-I-_ 
WS 



■— r 



OP 



"RTNHT"" 
_BII-RN_&--S____SH._BII-- 



ROSAVE 
-BO_S_A.V|_A.REA._ 



I — T5""T — 14"T — T?~T — Tf~~T — TT"T TO"~T 



R1SAVE 

-r~r 5 V &v -P*7< 



■T~5~T- 



___„__---_-___-__. 



HEA2EB 
00 1 

l_ _ 
01 i 

I 

I 



27 HEADER LAYOUT 2,FLTBLK 

28 ITEM ADDR 

29 RCRDLG ITEM 12 

30 LOEND 

__BQ3.__3.1__ 

RCRDLG 

__LiyGm_2£_BI£SEa 



n HEADER ON NONRESIDENT PROGRAM TAPE BLOCKS 
tt BASE ADDRESS OF RECORD 
U LENGTH OF RECORD 



_B__i-_-P.BI-i__L.B___B-. 



M I U r"»' T " « I M \ W < » ' 



T y i " r" i" i r -r-f • r . "i — r~n — i — r 



43 SEGTABENT LAYOUT 2,FLTBLK 

44 ITEM 4 

45 ITEM 4 

46 RGTBRO ITEM 8 

47 LOGBLKAD ITEM 16 

48 LOEND 

SEGI46ENI ____=-.2__ 

00 1 RGTBRO 

I 

011 



» DATA IN SEGMENT TABLE ENTRY 

# XOXOXOXOXOXOXOXOXOXOXOXOXOXOX 

# RIGHT BROTHER (SEGMENT NO.) 

It LOGICAL BLOCK ADDRESS ON PAGEMON FILE 



T _- 

BlSHI_BE2IliER.iSEfiHEWI.tie*! L_________-__Wa___-fi_fi----_-__L 

LOGBLKAD 



T . \ H " l " » I M l'"H' 



T-TO^f^aW^^ 
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layouts 



ENTA.B. 
001 

I _ 

01 1 " 

I 
- 



:QQ2: 

SEGNO 



01 ENTAB 

02 

03 

04 SEGNO 

05 

.QO 



.fioz. 



LAYOUT 2,FLTBLK 

ITEM ADDR 

ITEM 4 

ITEM 8 
LOEND 



0:37:15 



2/06/81 **** 



CPAGM 

If DATA IN ENTAB ENTRY 
H PAGING AREA ADDRESS 

* XOXOXOXOXOXOXOXOXOXOXOXOXOXOX 

* SEGMENT NO. 



K77D 



T T „ 

S£GM.!N.I_Ne A i_K2Sexox2X.e!<oxoxo!(Oxgx2Xoxgxox_i__ 



-C&6lNG_tREA_A&DRlSS. 



TT~T T3~T !J~7 TT~T — TO — T — 9 — T — 5 — T — 7 — T — Z — T — 5 — T — * — T — J — T — 2 — T — 1 — 1 — 0" 
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B02 



LAYOUTS 
0007355 



0:37:15 



2/06/81 **** 



CPAGM 

01 EXPAGREQ 

02 K THIS ENTRY POINT INTO THE PAGING MONITOR IS PROVIDED FOR 

03 n EXPLICIT PAGE REQUESTS. ENTRY IS MADE VIA A NORMAL CALL AND 

04 it RA1 MUST POINT TO THE SEG FUNCTION ENTRY WHICH CONTAINS THE 

05 # SEGMENT NUMBER AND ADDRESS. A NORMAL RETURN IS EXECUTED. A SEG. 

06 H NUMBER INDICATES THAT THE PROGRAM IS RESIDENT. 



H77D 



0007355 

0007355 01 

0007356 01 

0007360 01 

0007361 01 

0007362 01 

0007363 01 

0007365 01 
0007366 

0007366 01 

0007367 

0007367 01 

0007370 01 

0007371 01 

0007372 01 
0007374 01 
0007376 01 



000000 171420 

000001 031040 043076 CTSD 

000003 044002 

000004 044023 

000005 040440 

000006 003442 177760 

000010 055002 0007367 

000011 056420 

000012 110454 

000013 072060 

000014 072101 

000015 002060 000017 
000017 002101 177777 
000021 053015 0007413 



10 
-002- 11 
12 
13 
14 
15 
16 
17 
18 
-001- 19 



BEGIN 

HA 

LAL 

ST 

ST 

L 

NI 

BNC 

RETURN 

BTSAG 



R2,PCB,RA0 

R0,N(R0SAVE)(RAO) 

R1,N(R1SAVE)(RA0) 

R2,0(RA1> 

R2,MSK(12,4> 

PAGMUST 



# SAVE RO AND R1 



it CHECK IF PROGRAM IS RESIDENT 



21 PAGMUST 
22 

23 
24 
25 
26 
27 



RLN 

GN 

GN 

STM 

STM 

B 



R2,S (SEGNO)-* U KEEP OLD 8 BIT SEGMENT NO. FORMAT 

R3,0 

R4,1 

R3,N(RTNH4)(RA0),M(RTNH4) * SAVE RETURN ADDRESS 

R4,N(RTNL16) (RA0),M(RTNL16> 

FINDPAGE » USE NORMAL PAGING ROUTINES FROM HERE. 
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PAGING MONITOR 

PAGMON NORMAL PAGING ENTRY POINT 
0007377 



C02 



0:37:15 



2/06/81 **** 



CPAGM 

01 PAGMON 

02 * NORMAL ENTRY POINT FOR PAGING OPERATIONS INITIATED BY 'CALL* OR 

03 If 'BL' INSTRUCTIONS. ENTRY IS MADE VIA THE CALL ENTRY IN THE ENTAB 

04 ft TRANSFER VECTOR TABLE. 



W77D 



0007377 06 

0007377 01 000022 171420 -002- 09 

0007400 01 000023 031040 043076 CTSD 10 

0007402 01 000025 044002 11 

0007403 01 000026 044023 12 

0007404 01 000027 072340 13 

0007405 01 000030 072361 14 

0007406 01 000031 040440 15 

0007407 01 000032 040461 17 

0007410 01 000033 002040 000017 18 

0007412 01 000035 044061 19 

0007413 20 
0007413 21 

0007413 01 000036 106000 -001- 22 

0007414 01 000037 016542 177400 23 

0007416 01 000041 010550 24 

0007417 01 000042 004157 25 

26 



BEGIN 

HA 

LAL 

ST 

ST 

GN 

GN 

L 

L 

STM 
ST 
FINDPAGE 

TAKEOUT 

LR 

LRM 

RRN 

SN 



R2,PCB,RA0 

RO,N<ROSAVE)(RAO> 

R1,N(R1SAVE)(RA0> 

R14,0 

R15,1 

R2,0(RA1) 



if SAVE RO AND R1 FOR CLIENT. 



NUMBER AND 



ft GET ADDRESS OF SEG. 

H TARGET ADDRESS. 

ft GET SEG. NUMBER AND 4 HIGH BITS OF TARGET 
ADDRESS. 

ft GET LOW 16 BITS OF TARGET ADDRESS. 
R2,N(RTNH4>(RA0),M(RTNH4) tf STORE TARGET ADDRESS AWAY 
R3,N(RTNL16)(RA0) 



R3,1(RA1) 



1 

0,0 

R6,R2,M(SEGN0) 
R6,S (SEGNO) 
R6,1 
K END OF PAGMON ENTRY MODULE 



# 3E790279 



* POSITION R6 FOR MAP MODULE. 
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D02 



PAGING MONITOR 
MAP TABLE ROUTINES 
0007420 



0007420 01 0000*3 131400 043056 CTSO 

0007422 01 000045 016446 000360 

0007424 01 000047 006206 

0007425 01 000050 005202 

0007426 01 000051 010444 

0007427 01 000052 003000 

0007430 01 000053 043462 

0007431 01 000054 024470 

0007432 01 000055 054205 0007637 

0007433 

0007433 01 000056 126410 

0007434 01 000057 036200 007433 0007433 

0007436 01 000061 014060 

0007437 01 000062 044460 

0007440 01 000063 003401 000017 CTSD 

0007442 01 000065 005002 -~ 

0007443 01 000066 041421 

0007444 

0007444 01 000067 073031 



0:37:15 2/06/81 **** 
CPAGM W770 



01 MAPSET 

02 it THIS ROUTINE WILL TAKE A PAGE NUMBER AND PREPARE THE PAGE 

03 U MAP FOR A FUTURE SEARCH TO CREATE THE BRANCH OF PAGES REQUIRED 

04 U FOR EXECUTION OF THE REQUESTED PAGE. A 16 WORD TABLE HOLDS THE 

05 * CURRENT STANDING OF THE PAGING BUFFER. EACH BIT REPRESENTS A 

06 U GIVEN PAGE. 



08 * 

09 # 



ENTRY R6 ■ SEGMENT NUMBER MINUS ONE 
EXIT UPDATED PAGING BUFFER MAP. 



11 
12 
13 
14 
15 



LAL 

LRM 

LR 

SR 

RRN 



RO, PAGEMAP, RA1 

R2,R6,MSK(4,4) 

R8,R6 

R8,R2 

R2,4 



# SET UP PAGE MAP BASE. 
It SELECT WORD INFORMATION 



-001- 



It GET RID OF WORD INFORMATION 
# DIVIDE BY 16. R2 NOW REPRESENTS INDEX INTO 
PAGEMAP. 
RO # PREPARE FOR MASK GENERATION. 

R3,R2(RA1) » OBTAIN WORD FROM MAP. 

R3,R8 * IS SEG ALREADY IN 

6ET0PAGE # DO NOT TOUCH MAP 

THE BITS BELOW THIS PAGE MUST ALL BE ZEROED. THE BITS ABOVE 

22 n THIS PAGE MUST BE LEFT UNCHANGED FOR A FUTURE SEARCH. 

23 MASKGEN 
R0,R8 U GENERATE ANDING MASK IN RO 
RB, MASKGEN 

R3,R0 # R3 NOW CONTAINS CORRECT PAGEMAP WORD. 

R3,0(RA1) 

R0,TBLSIZ(PAGEMAP>-1 * NUMBER OF WORDS IN PAGEMAP-1 
R0,R2 # REMAINDER IN RO INDICATES THE WORDS BELOW 

THIS PAGE. 
LA R1,1(RA1) It SET UP RA1 FOR CLEARING ROUTINE 

CALL CLR WRDS - # TABLE NOW READY. 
BSAI clr wRds * SUBROUTINE CLR WRDS IS IN PROGRAM CSYSUB 



17 
18 
19 
20 
21 



24 
25 
26 
27 
28 
29 



ZR 
LAX 
TBR 
BC 



SBR 

BX 

NR 

ST 

LI 

SR 



31 
32 
33 
34 # 



THIS ENDS MAPSET MODULE 
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MONITOR 


















0:37:15 2/06/81 **** 


LOAD 


PAGE ROUTINE 
















CPAGM W77D 


0007445 














01 


SEGSEARCH 




















02 


f 


THIS MODULE BASED ON A TARGET SEGMENT NUMBER WILL SCAN THE 
















03 


# 


SEGTAB TABLE 


AND LOAD THE REQUIRED PAGES NEEDED TO EXECUTE THE 
















04 


n 


TARGET SEGMENT. THE PAGE MAP 


WILL BE UPDATED AS THE LOADING 
















05 


» 


PROGRESSES. 




















07 


tt 


ENTRY R6 


= TARGET SEGMENT 


NUMBER 
















08 


« 


EXIT LOADED PAGING BUFFER. 




0007445 


01 


000070 


103060 








10 




ZR 


R3 




0007446 


01 


000071 


031001 


146672 


SEGOOO 




11 




LAL 


R0,SEGTAB-2,RA0 




0007450 


01 


000073 


031400 


043056 


CTSD 




12 




LAL 


R0,PAGEMAP,RA1 


n SET UP ADDRESS REGISTERS. 


0007452 














13 


SEGS 






0007452 


01 


000075 


104542 








14 




AN 


R6,2 


It R6 = SEGMENT NO. PLUS ONE 


0007453 


01 


000076 


041102 








15 




LA 


R4,2(RA0> 


It OBTAIN SEGTAB ENTRY. (RIGHT BROTHER NUMBER) 


0007454 


01 


000077 


003502 


177400 






16 




NI 


R4,M(RGTBR0) 




0007456 


01 


000101 


010510 








17 




RRN 


R4,S(RGTBR0) 




0007457 


01 


000102 


006123 








18 




LR 


R5,R3 


H PREPARE TO EXTRACT MAP ENTRY. 


0007460 


01 


000103 


016605 


000360 






19 




LRM 


R8,R5,MSK(4,4) 


n EXTRACT WORD INDEX 


0007462 


01 


000105 


005130 








20 




SR 


R5,R8 


U R5 NOW CONTAINS BIT NUMBER OF PAGE IN WORD 
POINTED TO BY R6. 


0007463 


01 


000106 


010604 








22 




RRN 


R8,4 


U DIVIDE BY 16. 


0007464 


01 


000107 


042570 








23 




LX 


R7,R8(RA1) 


K GET MAP ENTRY. 


0007465 


01 


000110 


005106 








24 




SR 


R4,R6 


# TEST IF RB IS GREATER THAN TARGET PAGE. 


0007466 


01 


000111 


055116 




0007604 




25 




BNC 


NOLOAD 


H TAKE BRANCH IF PAGE NOT TO BE LOADED. 


0007467 


01 


000112 


024565 








26 




TBR 


R7,R5 


HIS PAGE ALREADY IN 


0007470 


01 


000113 


054071 




0007561 




27 




BC 


CLOSECK 




0007471 


01 


000114 


026565 








28 




S8R 


R7,R5 




0007472 


01 


000115 


030400 


043076 


CTSD 




2? 




LL 


RO,PCB 




0007474 


01 


000117 


024004 








30 




TBN 


R0,S(0P) 




0007475 


01 


000120 


054021 




0007516 




31 




BC 


REPOS 


H NO NEED TO OPEN AGAIN 


0007476 


01 


000121 


026004 








32 




SBN 


RO,S(OP) 


U FLAG OPEN EXECUTION 


0007477 


01 


000122 


034400 


043076 


CTSD 




33 




STL 


RO,PCB 




0007501 














34 


REOP 






0007501 


01 


000124 


140021 








35 




L 


R1,N(L0GBLKAD)(RA0) U GET INDEX READY 
















36 


n 


NEXT THE TAPE HANDLER MUST 


USED TO BRING IN PAGE. 
















37 




OPEN 


PAGCLNT,(P,A,G,E 


,M,0,N),YES 


0007502 


01 


000125 


037020 


126205 


CTAPH 


-002- 


38 




BSA 


OPENTCB 




0007504 


01 


000127 


004123 






-001- 


39 




VFD 


5,PAGCLNT 1,0 1, 


2,0 3,((7+1)/2)+1 1,0 3,((7+1)/2)-1 


0007505 


01 


000130 


050101 






-001- 


40 




VFD 


8,ASC P 8,ASC A 




0007506 


01 


000131 


043705 






-001- 


41 




VFD 


8,ASC G 8,ASC E 




0007507 


01 


000132 


046717 






-001- 


42 




VFD 


8,ASC M 8,ASC 




0007510 


01 


000133 


047000 






-001- 


43 




VFD 


8,ASC N 8,ASC~ 


, 


0007511 


01 


000134 


154005 




0007516 




44 




BC 


REPOS" 


















45 


n 


TAPE BUSY, STALL. 




0007512 














46 




CALL 


WAIT 




0007512 


01 


000135 


073025 






-001- 


47 




BSAI 


WXAIT 


» SUBROUTINE WAIT IS IN PROGRAM CBLM 


0007513 














48 




TAKEOUT 


2 


It 3E790279 


0007513 


01 


000136 


106000 






-001- 


49 




LR 


0,0 
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PAGING MONITOR 
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• 


LOAD PAGE ROUTINE 






CPAGM W77D 






000751* 01 000137 006000 




-001- 


01 LR 0,0 






0007515 01 000140 053764 


0007501 




02 B REOPEN 






0007516 






03 REPOS 






0007516 01 000141 140021 






04 L R1,1(RA0) * OBTAIN LOGICAL INDEX INTO FILE 

05 POSITION PAGCLNT » POSITION TAPE FOR READ. 






0007517 01 000142 07:047 — 




-002- 


06 BSAI RXEQR K SUBROUTINE REQR IS IN PROGRAM CTAPH 






0007520 01 000143 005100 




-001- 


07 VFD 5, PAGCLNT 4,P0SITI0N 1,1 1,0 5,0 






0007521 01 000144 156000 






08 BPAX RO 






0007522 01 000145 153006 


0007530 




09 B READBEGIN # EXECUTE READ MACRO. INITIATE DATA TRANSFER. 






0007523 01 000146 153064 


0007607 




10 B ABORTPAGE # I/O ERROR ABORT PAGMON. 






0007524 






11 CALL WAIT n WAIT A SCAN. TAPE FUNCTIONS ARE SLOW. 






0007524 01 000147 173025 




-001- 


12 BSAI WXAIT K SUBROUTINE WAIT IS IN PROGRAM CBLM 






0007525 






13 TAKEOUT 2 # 3E790279 






0007525 01 000150 106000 




-001- 


14 LR 0,0 






0007526 01 000151 006000 




-001- 


15 LR 0,0 






0007527 01 000152 053767 


0007516 




16 B REPOS 






0007530 






20 READBEGIN 






0007530 01 000153 130400 043076 


CTSD 




21 LL RO,PCB+N(WRDCNT) 






0007532 01 000155 003402 000037 






22 NI RO,-*(WRDCNT) H ZERO WRDCNT (WORD COUNT) 1 






0007534 01 000157 034400 043076 


CTSD 




23 STL RO,PCB+t< (WRDCNT) 






0007536 






24 READSTAT 

25 H INITIATE READ OF PAGE. 




/■'' *' ■ 








26 READ PAGCLNT, PAGEUN 






0007536 01 000161 173047 




-002- 


27 BSAI RXEQR M SUBROUTINE REQR IS IN PROGRAM CTAPH 






0007537 01 000162 004200 007700 


0007700 


-001- 


28 ADDR PAGEUN,PAGCLNT*E(7)+READ*E(3) 




1 


0007541 01 000164 156000 






29 BPAX RO 






0007542 01 000165 153006 


0007550 




30 B PRECLOSECK » CLOSE FILE 






0007543 01 000166 153044 


0007607 




31 B ABORTPAGE 






0007544 






32 CALL WAIT 






0007544 01 000167 173025 




-001- 


33 BSAI WXAIT # SUBROUTINE WAIT IS IN PROGRAM CBLM 






0007545 






34 TAKEOUT 2 K 3E790279 






0007545 01 000170 106000 <■ 




-001- 


35 LR 0,0 






0007546 01 000171 006000 




-001- 


36 LR 0,0 






0007547 01 000172 053767 


0007536 




37 B READSTAT # MUST WAIT FOR POSITION. 






0007550 






41 PRECLOSECK 

42 STATST PAGCLNT 






0007550 01 000173 173047 




-002- 


43 BSAI RXEQR # SUBROUTINE REQR IS IN PROGRAM CTAPH 






0007551 01 000174 006300 




-001- 


44 VFD 5, PAGCLNT 4, STATST 1,1 1,0 5,0 






0007552 01 000175 156000 






45 BPAX RO 






0007553 01 000176 153006 


0007561 




46 B CLOSECK 






0007554 01 000177 153033 


0007607 




47 B ABORTPAGE 






0007555 






48 CALL WAIT 






0007555 01 000200 173025 




-001- 


49 BSAI WXAIT # SUBROUTINE WAIT IS IN PROGRAM CBLM 


■ 




COMMON TAPE PAGING MONITOR 






PR-1C955-50 






0:37:15 2/06/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CPAGM ISSUE 05 PAGE 11 

















602 



PAGING MONITOR 
LOAD PAGE ROUTINE 

0007554 

0007556 01 000201 106000 

0007557 01 000202 006000 

0007560 01 000203 053770 0007550 



0:37:15 2/06/81 **** 
CPAGM W77D 



01 


TAKEOUT 2 


K 3E790279 


001- 02 


LR 0,0 




001- 03 


LR 0,0 




04 


B PRECLOSECK 





0007561 

0007561 01 00020* 146570 

0007562 01 000205 004156 

0007563 01 000206 020066 

0007564 01 000207 054003 0007567 

0007565 01 000210 004461 

0007566 01 000211 053664 0007452 



0007567 

0007567 01 000212 130400 043076 CTSD 

0007571 01 000214 024004 

0007572 01 000215 055045 0007637 



08 if CONTINUE LOADING OF PAGES. 



0007573 01 

0007574 01 

0007575 01 

0007576 01 

0007577 01 
0007600 

0007600 01 
0007601 

0007601 01 

0007602 01 

0007603 01 



000216 073047 

000217 005300 

000220 156000 

000221 153036 0007634 

000222 153007 0007606 

000223 173025 

000224 106000 

000225 006000 

000226 053764 0007567 





09 


CLOSECK 






10 


STX 


R7,R8(RA1) 




11 


SN 


R6,2 




12 


CR 


R3,R6 




13 


BC 


CLOSEFILE 




14 


AN 


R3,1 




15 


B 


SEGSRCH 




19 


CLOSEFILE 






20 


LL 


RO,PCB 




21 


TBN 


R0,S(OP) 




22 


BNC 


GETOPAGE 




23 


n TERMINATE TAPE OPERATION 




24 


CLOSE 


PAGCLNT 


002- 


25 


BSAI 


RXE8R 


001- 


26 


VFD 


5, PAGCLNT 4 




27 


BPAX 


RO 




28 


B 


GET0PAGE1 




29 


6 


A80RTPAGE1 




30 


CALL 


WAIT 


001- 


31 


BSAI 


WXAIT 




32 


TAKEOUT 


2 


001- 


33 


LR 


0,0 


001- 


34 


LR 


0,0 




35 


B 


CLOSEFILE 



ICUPDATE MAP 

U R6 = SEGMENT NO. MINUS ONE 

# CHECK IF ENTIRE TREE HAS BEEN LOADED. 

n INCREMENT CURRENT PAGE COUNT. 



CHECK IF OPEN MAS REQUIRED 
NO CLOSE REQUIRED 



SUBROUTINE RE«R IS IN PROGRAM CTAPH 



TRANSFER TO APPROPRIATE PAGE ADDRESS. 



SUBROUTINE WAIT 
3E790279 



IS IN PROGRAM CBLM 



0007604 



0007604 01 000227 122565 

0007605 01 000230 053754 



0007561 



39 NOLOAD 

40 Id A SPECIFIC PAGE NEED NOT BE LOADED. CLEAR MAP BIT AND 

41 H CONTINUE RESOLVING PAGING BUFFER. 

42 ZBR R7,R5 

43 B CLOSECK 



COMMON TAPE PAGING MONITOR 
0:37:15 2/06/81 TRADE SECRET 



SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CPAGM 



PR-1C955-50 
ISSUE 05 PAGE 



12 



• • 






















A03 


PAGING MONITOR 
















0:37:15 2/06/81 **** 


LOAD 


PAGE ROUTINE 














CPAGM W77D 


0007606 










01 


AB0RTPAGE1 




0007606 


P1 000231 


104542 






02 






AN 


R6,2 IKADJUST SEG. NO. FOR PRINT OUT 


0007607 










03 


ABOR 




0007607 


01 000232 


104157 






04 






SN 


R6,1 # ADJUST SEG NO. FOR PO 


0007610 


01 000233 


003000 






05 






ZR 


RO 


0007611 


01 000234 


034400 043076 


CTSD 




06 






STL 


RO,PCB H CLEAR FOR ABORT. 


0007613 










07 






CALL 


BLKDATA 


0007613 


01 000236 


037020 127462 


CTAPH 


-001- 


08 






BSA 


BLKDATA 


0007615 


01 000240 








09 






LR 


R7,R0 § PRESENT LOGICAL TAPE POSITION 


0007616 










10 






PRINT 


PACTIONS, FMT«<WRD(P,A,G,E,M,0,N>,WRD(A,B,T), DEC, DEC) 










-001- 


12 


* 


MESSAGE PROTOTYPE 










-001- 


13 


tf 


A 


mm 


PAGEMON ABT ddddd ddddd 


0007616 


01 000241 


073053 




-002- 


14 






BSAI 


PXMRY U SUBROUTINE PMRY IS IN PROGRAM TTYAPP 


0007617 


01 000242 


101200 




-002- 


15 






VFD 


1,1 2,0 1,0 3,1 1,0 1,1 1,0 2,0 1,0 3,0 


0007620 


01 000243 


021104 




-002- 


16 






VFD 


4,TTY0 4,TTY0 4,TTY0 DEC 4,TTY0 DEC 


0007621 


01 000244 


021042 




-002- 


17 






VFD 


4,TTY0" 4,TTY0" 4,TTY0_ 4,TTY0_. 


0007622 


01 000245 




TTYTBL 


-002- 


18 






VFD 


5,2 117PXAGEM0N 


0007623 


01 000246 




TTYTBl 


-002- 
-001- 


19 

20 






VFD 
NOTE 


5, 11,AXBT 

THE VARIABLE PORTION OF THE OUTPUT MESSAGE TO BE PRINTED IS 
CONTAINED IN GENERAL REGISTERS R6,R7, 












22 


CPAG 


OH 


0(247) H 3E790279 










-001- 


23 






NOTE 


************* THE FIRST ADDRESS OVERWRITTEN IS 000247 ********** 


0007624 










26 






TAKEOUT 


3 * 3E790279 


0007624 


01 000247 


106000 




-001- 


27 






LR 


0,0 


0007625 


01 000250 006000 




-001- 


28 






LR 


0,0 


0007626 


01 000251 


006000 




-001- 


29 






LR 


0,0 
RO,HGAREA+TBLSIZ(HGAREA)-MSFCLVL-ENTRYSIZ(HGAREA) 


0007627 


01 000252 


003401 042660 


LAYOUT 




30 






LI 


0007631 








-001- 


31 
32 






COM 

NOTE 


n 3E790279 
*************** THE LAST ADDRESS OVERWRITTEN IS 000253 ********** 


0007631 










35 






MIMODE 


L HG,R0 * GET HG REGISTER TO MSFC CALLING LEVEL MINUS 
ONE LEVEL 


0007631 


01 000254 


013000 




-001- 


37 






MIS 





0007632 


01 000255 


032523 




-002- 


38 






VFD 8,H6XT 8,R0XF 


0007633 










39 






RETURN 


3 H SIGNAL END OF MSF 


0007633 


01 000256 


056443 




-001- 


40 






BTSAGN 


3 












41 


* 


END 


OF LOAD 


MODULE 


COMMON TAPE PAGING MONITOR 














PR-1C955-50 


0:37:15 2/06/81 TRADE SECRET - 


SEE TRADE SECRET 


RESTRICTIVE NOTICE ON COVER SHEET CPAGM ISSUE 05 PAGE 13 


















. 


l-a^-3^/ 70/f 






... 






PA6IN6 MONITOR 
CLIENT RETURN MODULE 
0007634 



01 GET0PASE1 

02 CPAGM OW 
-001- 03 NOTE 



_B03_ 



0:37:15 2/06/81 **** 
CPA6M W77D 

0(257) # 3E790279 

************* THE FIRST ADDRESS OVERWRITTEN IS 000257 ********** 



000763* 






0007634 01 000257 137020 147320 BLMMA 
0007636 

0007636 01 000261 173025 

0007637 



-001- 08 
OV 

-001- 10 
11 

-001- 12 



CALL TEMPINH_ 



BSA 

CALL 

BSAI 

EOW 

NOTE 



TEMPINH 

WAIT 

WXAIT 



n FORCE ONE BASE LOOP BEFORE TRANSFER TO 
CLIENT AFTER TAPE CLOSE 



» SUBROUTINE WAIT IS IN PROGRAM CBLM 
# 3E790279 
*************** THE LAST ADDRESS OVERWRITTEN IS 000261 ********** 



0007637 



0007637 
0007637 01 

0007640 01 

0007641 01 

0007643 01 

0007644 01 

0007646 01 

0007647 01 

0007650 01 

0007651 01 

0007652 01 

0007653 01 
0007654 

0007654 01 
0007655 

0007655 01 

0007656 01 

0007657 01 

0007660 01 

0007661 01 

0007662 01 

0007663 01 

0007664 01 

0007665 01 

0007666 01 

0007667 01 

0007670 01 

0007671 01 

0007672 01 

0007673 01 

0007674 01 

0007675 01 



000262 106000 

000263 006000 

000264 031000 043076 CTSD 

000266 072020 

000267 016020 000017 

000271 072420 

000272 040021 

000273 072421 

000274 040002 

000275 040023 

000276 062100 

000277 056420 

000300 006000 

000301 006000 

000302 006000 

000303 006000 

000304 006000 

000305 006000 

000306 006000 

000307 006000 

000310 006000 

000311 006000 

000312 006000 

000313 006000 

000314 006000 

000315 006000 

000316 006000 

000317 006000 

000320 006000 



COMMON TAPE PAGING MONITOR 

0:37:15 2/06/81 TRADE SECRET 



-00V 
-001 • 



-OOV 

-001- 
-001- 
-001- 
-001- 
-00V 
-00V 
-001' 
-001- 

-oov 
-oov 

-001 
-001 
-001 
-001 
-001 
-001 
-001 



15 
16 
17 
18 
19 
20 
21 

II 

s 

26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 

• 43 

• 44 

• 45 

■ 46 

■ 47 

■ 48 

• 49 



GETOPAGE 

H ALL TAPE BLOCKS HAVE BEEN LOADED AND CONTROL WILL NOW 

K BE PASSED TO PAGING AREA FOR EXECUTION. 



TAKEOUT 2 
LR 0,0 

0,0 

RO,PCB,RAO 

R1,0 

R1,R0,M(RTNH4) 

R1,0 

R1,N(RTNL16)(RA0) 

R1,1 

R0,N(R0SAVEXRA0> 

R1,N(R1SAVE)(RA0) 

N(OP)(RAO),S(OP) 



LR 

LAL 

GN 

IRM 

HN 

L 

HN 

L 

L 

ZBS 

RETURN 

BTSAG 

TAKEOUT 19 



H 3E790279 

n GET HIGH BITS OF ADDRESS, 



U GET LOW 16 BITS 



(/RESTORE RO AND R1 

» END OF PAGING OPERATION. 

H 3E790279 



LR 
LR 
LR 
LR 
LR 
LR 
LR 
LR 
LR 
LR 
LR 
LR 
LR 
LR 
LR 
LR 
LR 



0,0 
0,0 
0,0 
0,0 
0,0 
0,0 
0,0 
0,0 
0,0 
0,0 
0,0 
0,0 
0,0 
0,0 
0,0 
0,0 
0,0 






SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CPAGM 
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ISSUE 05 PAGE 



14 



C03 



PAGING MONITOR 
CLIENT RETURN MODULE 

0007676 01 000321 006000 

0007677 01 000322 006000 



0:37:15 2/06/81 **** 
CPAGM W77D 



-001- 01 
-001- 02 



LR 
LR 



0,0 
0,0 



COMMON TAPE PAGING MONITOR 
0:37:15 2/06/81 TRADE SECRET 



SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CPAGM 
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JSS2 



PAGING MONITOR 












0:37:15 2/06/81 **** 


PAGE UNLOADING 


ROUTINE 










CPAGM W77D 


0007700 






01 PAGEUN 














02 U THE INTERRUPT HAS LOADED 


1 BLOCK OF TAPE INTO THE 








03 H I/O BUFFER. 


THIS CODE HILL UNPACK 


ME DATA AND TRANSFER 








04 * THE DATA TO 


THE PAGING BUFFER. 


ASSUME THE BLOCK CONTAINS 








05 * CONTIGUOUS DATA AND PROGRAM 






0007700 






09 BEGIN 


() 






0007700 01 000323 


131000 045266 LAYOUT 




10 LAL 


RO,I_OBUF,RAO 






0007702 01 000325 


041341 




11 LA 


R14,1(RA0) 


§ 


OBTAIN THE ADDRESS AND LENGTH SPECS. 


0007703 01 000326 


041361 




12 LA 


R15,1(RA0) 






000770* 01 000327 


041001 




13 LA 


R0,1(RA0> 






0007705 01 000330 


016456 177760 




14 LRM 


R2,R14,M(RCRDLG) 






0007707 01 000332 


010444 




15 RRN 


R2,S(RCRDLG) 


# 


R2 ■ TOTAL WORDS TO MOVE 


0007710 01 000333 


030500 043076 CTSD 




16 LL 


R4,PCB+N(WRDCNT) 






0007712 01 000335 


003502 177740 




17 NI 


R4,M(WRDCNT) 






0007714 01 000337 


010505 




18 RRN 


R4,S(WRDCNT) 


H WORD COUNT IN R4 (WORDS ALREADT MOVED) 


0007715 01 000340 


043404 




19 LAX 


R0,R4(RA1) 


§ 


ADJUST RA1 


0007716 01 000341 


043004 




20 LAX 


R0,R4(RA0) 


§ 


ADJUST RAO 


0007717 






21 








0007717 01 000342 


006062 




22 LR 


R3,R2 






0007720 01 000343 


005064 




23 SR 


R3,R4 


It 


R3 •= WORDS LEFT TO MOVE 


0007721 






24 IF 


R3 >» A.MAXWDS+1 THEN 


LI R3,MAXWDS 


0007721 01 000344 


006003 


-003- 


25 LR 


R0,R3 






0007722 01 000345 


003400 154357 MASACS 


-003- 


26 SI 


R0,MAXWDS+1 






0007724 01 000347 


055003 0007727 


-001- 


27 BNC 


IFS124 






0007725 01 000350 


003461 023420 MASACS 


-001- 


28 LI 


R3,MAXWDS 


It 




0007727 




-001- 


29 IFS124 








0007727 01 000352 


106003 -- 




30 LR 


R0,R3 


§ 


RO •= WORDS TO MOVE THIS TIME 


0007730 






31 CALL 


MOVST 


§ 


TRANSFER TO PAGING BUFFER 


0007730 01 000353 


073033 


-001- 


32 BSAI 


MXOVST 


H 


SUBROUTINE MOVST IS IN PROGRAM CSYSUB 


0007731 01 000354 


101503 




33 AR 


R4,R3 


It 


R4 = WORDS MOVED SO FAR 


0007732 01 000355 


031400 043076 CTSD 




34 LAL 


R0,PCB,RA1 






0007734 






35 IF 


R4 ■ R2 THEN ZR R4 






0007734 01 000357 


020102 


-002- 


36 CR 


R4,R2 






0007735 01 000360 


055002 0007737 


-001- 


37 BNC 


IFS128 






0007736 01 000361 


003100 


-001- 


38 ZR 


R4 


It 




0007737 




-001- 


39 IFS128 








0007737 01 000362 


110513 




40 RLN 


R4,S(WRDCNT> 






0007740 01 000363 


002500 177740 




41 STM 


R4.N(WRDCNT)(RA1), 


M(WRDCNT) It SAVE WRDCNT 








42 CPAGM OW 


0(365) 


It 


12277 






-001- 


43 NOTE 


************* THE 


FIRST ADDRESS OVERWRITTEN IS 000365 ********** 


COMMON TAPE PAGING MONITOR 










PR-1C955-50 


0:37:15 2/06/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER 

• 


SHEET CPAGM ISSUE 05 PAGE 16 



PAGING MONITOR 

PAGE UNLOADING ROUTINE 

0007742 

0007742 01 000365 014104 

0007743 01 000366 054002 0007745 

0007744 01 000367 056461 

0007745 

0007745 

0007745 

0007745 01 000370 156460 



01 IF 
-002- 02 
-001- 03 
-002- 04 
-001- 05 IFS132 

06 EOH 
-001- 07 NOTE 



E03 



R4 
TZ 

BC 
BTSAN 



■* THEN RETURN 1 
R4 

IFS132 
1 



0:37:15 2/06/81 **** 
CPAGM W77D 
ANOTHER TRANSFER REQUIRED 



U 12277 
*************** THE LAST ADDRESS OVERWRITTEN IS 000367 ********** 



10 
-001- 11 



RETURN 
BTSAN 



n DONE 



COMMON TAPE PAGING MONITOR 

0:37:15 2/06/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CPAGM 
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F03 


PAGING 


MONITOR 








0:37:15 2/06/81 **** 


PAGE MAP LOOK UP ROUTINE 








CPAGM W77D 


0007746 








01 
02 
03 


MAPCHK 

* THIS ROUTINE WILL CHECK TO SEE IP A GIVEN PAGE (RO) IS 

* ALREADY IN THE PAGING BUFFER OR NOT. 


0007746 








04 
05 


» ENTRY CONDITION 


0007746 








06 

07 


n RO IS SET TO PAGE NUMBER. 


0007746 








08 
09 


n EXIT CONDITION 


0007746 








10 
11 


* RETURN 1 PAGE IS RESIDENT AT THIS TIME. 


0007746 








12 
13 


n RETURN PAGE IS NOT RESIDENT AT THIS TIME. 


0007746 








17 


BEGIN 


0007746 01 


000371 171420 




-002- 


18 

19 


HA 
CPAGM OH 0(372) # 12416 






• 


-001- 


20 
23 


NOTE ************* THE FIRST ADDRESS OVERWRITTEN IS 000372 ********** 
CPATCH2 BGNP 0(400) * 12416 


0007747 01 


000372 037000 114507 


0114507 


-001- 


24 


BL mi43 








-001- 


25 


NOTE CPATCH2 'CSECT' 








-001- 


26 


NOTE ***************** PATCH AREA BEGINS AT 000400 **************** 


0114507 






-001- 


29 


XXX143 PATCHAREA 


0114507 04 


000400 130420 043076 


CTSD 




30 


LL R1,PCB+N(0P) 


0114511 04 


000402 024024 






31 


TBN R1,S(0P> 


0114512 








32 


IF CF = 1 THEN RETURN 


0114512 04 


000403 055002 


0114514 


-001- 


33 


BNC IFS145 


0114513 04 


000404 056440 




-002- 


34 


BTSAGN 


0114514 






-001- 


35 


IFS145 


0114514 04 


000405 104017 






36 


SN R0,1 


0114515 04 


000406 031420 043056 


CTSD 




37 


LAL R1,PAGEMAP,RA1 § PAGE MAP ADDRESS 


0114517 








38 


ENDP H 12416 


0114517 04 


000410 037000 007751 


0007751 


-001- 


39 


BL XXX147 








-001- 


40 


NOTE ************ LAST PATCH ADDRESS USED IS 000411 *************** 








-001- 


41 


NOTE ***** NUMBER OF PATCH WORDS USED IS 10 (DECIMAL) ******** 


0007751 






-001- 


44 


XXX147 OWCONTINUE 


0007751 








45 


TAKEOUT 1 - 


0007751 01 


000374 106000 




-001- 


46 


LR 0,0 


0007752 








47 


EOW n 12416 








-001- 


48 


NOTE *************** THE LAST ADDRESS OVERWRITTEN IS 000374 ********** 


COMMON 


rAPE PAGING MONITOR 








PR-1C955-50 


0:37: 


15 2/06/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET CPAGM ISSUE 05 PAGE • 18 



• • 



• • 



• • 



603 






PAGING MONITOR 








PAGE MAP LOOK \if ROUTINE 








0007752 01 000375 016440 000360 


01 


LRM 


R2,R0,MSK<4,4) 




03 


LR 


R8,R0 


0007755 01 000400 005202 


04 


SR 


R8,R2 


0007756 01 000401 010444 *- 


05 


RRN 


12,4 




06 


LAX 


R3,R2(RA1) 


0007760 01 000403 024470 


07 


TBR 


R3,R8 




08 


ZR 


RO 


0007762 01 000405 030000 


09 


ICF 


R0,0 


0007763 


10 


RETURN 




0007763 01 000406 056420 


-001- 11 


BTSAG 





0:37:15 2/06/81 **** 

CPAGM W770 

II SELECT WHICH WORD OF MAP IS TO BE INTERROGA 
TED. 

K REMOVE WORD DATA FROM PAGE NUMBER. 
tt R2 NOW REPRESENTS AN INDEX INTO MAP. 
K GET WORD FROM MAP 
U IS THE PAGE IN MEMORY. 

n GET RETURN CODE IN RO 



COMMON TAPE PAGING MONITOR 

0:37:15 2/06/81 TRADE SECRET - SEE TRADE SECRET RESTRICTIVE NOTICE ON COVER SHEET 



CPAGM 



PR-1C955-50 
ISSUE 05 PAGE 



19 






PASING MONITOR 

PAGE NAP LOOK UP ROUTINE 



JSL 



0:37:15 



2/06/81 **** 
W77D 



CPAGM 

01 OUT IOD ALM=2 PRI=3 CHL=MTC 

02 PAGENON ABT 0AA BB 

03 T"02" 

04 THE PAGING MONITOR WAS ABORTED Br THE TAPE HANDLER. 

05 T"03" 

06 aA = SSEGMENT BEING PAGED AT POINT OF ABORT (DECIMAL). 

07 $$bb = Present logical tape position (decimal). 

08 T"04" 

09 X IF TAPE ERROR MESSAGES PRECEDED THE PAGING MONITOR ABORT, THEY SHOULD 

10 BE CONSULTED FIRST TO IDENTIFY THE PARTICULAR TAPE TROUBLE. OTHERWISE, 

11 RETRY THE PAGING FUNCTION. IF THE FAILURE PERSISTS, RUN TAPE DIAGNOSTICS. X 

12 SPACE 1 

13 T"05" 

14 SSPR-1C955-01 CPAGM #$COMMON SPACING JMONITOR SPROGRAM 

15 .IODEND 

16 CPAGM MAXSIZE 0,407 
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• • 







• • 



PATCH HISTORY 

LISTING OF INDIVIDUAL PATCHES 

*/*/*/*/012277/*/*/*/* 



0007763 



. |24 ; 

0:37:15 2/06/81 **** 
CPAGM W77D 

-002- 01 PBEGIN PROG=CPAGM TRNO=12277 SERNOB=63014 

02 * FIX BUG IN PAGING OPERATION WHICH DETECTS END OF BLOCK 

03 IKTHIS PATCH COORDINATES WITH TC 63036 AND REQUIRES TC 63047 TO WORK PROPERLY 

04 TCEND 

-001- 05 NOTE AAAAAAAAAAAAAAAAAAAAAAA*AAAAAAA*AAAAAAAAA*AAAAAAAAAAAA**AAAAAA 



*/*/*/*/012416/*/*/*/* 



0007763 
0007763 



-002- 12 PBEGIN PROG-CPAGM TRN0»=12416 SERN0B«=62124 

13 n CHANGE SUBROUTINE MAPCHK TO CHECK FOR PAGING IN PROGRESS IN 

14 ^ADDITION TO SEARCHING FOR THE PRESENCE OF A GIVEN SEGMENT. 

15 U PREVENTS A PREMATURE INDICATION OF LOADED NONRESIDENT CODE 

16 *FOR THE TTY HANDLER AND OTHER CLIENTS. 
17 

18 U COORDINATES WITH TC 65010 TR 12377 

19 TCEND 

-001- 20 NOTE *AAAAAAAA*AAAAAAAAAAAA*A*AA*A*****A*#AA**A******************** 



0007763 



27 



END 
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-SSL 



PATCH HISTORY 










VALUE T 


NAME 


DEF/REF ATTRIBUTES 


AND REFEI 


IENCE 


14215* S 


.STOP 










011*507 L 


XXX143 


18-29 18-2* 








0007751 I 


XXX147 


18-** 18-39 








0000201 A 


XBITCNT 


1-08 








0000001 A 


XBOP 


1-08 








0000003 A 


XCLAS 


LIBNUM=12 




1-08 




0000002 A 


XMAXWRD 


LIBNUM=12 




1-08 




•CPA6M* T 


XNAMEX 










J 


XOWX 


1-10 








J 


XPFTX 










•ALL' T 


XSAVREGS 










0000010 A 


XTA1X 


13-23 14-03, 16 


-«, 


18-20 




J 


XTCHEADX 


1-10 








•PRUNE 1,1, 












TT 'T 


XUSX 
XUSIN612 










T 


XUSIN614 










0000002 A 


XMRDCNT 


LIBNUM=12 




1-08 




CTVTAB V 


clr wRds 


LIBNUM=14 




9-33 




1* P 


clr~wRd$X XC 










« 


SYSU8 


LIBNUM=14 








TTYTBL X 


AXBT 


13-19 13-19 








0000001 A 


AAX 


LIBNUM=12 




1-08 




0007607 L 


AB0RTPA6E 


13-03 11-10, 11- 


■31, 


11-47 




0007606 I 


AB0RTPAGE1 


13-01 12-29 








0000000 A 


ASC 


LIBNUM=5 




10-43 




0000101 A 


ASC A 


LIBNUM=5 




10-40 




0000305 A 


ASC E 


LIBNUM=5 




10-41 




0000107 A 


ASC G 


LIBNUM=5 




10-41 




0000115 A 


ASC~M 


LIBNUM=5 




10-42 




0000116 A 


ASC N 


LIBNUM=5 




10-43 




0000317 A 


ASC~0 


LIBNUM=5 




10-42 




0000120 A 


ASC P 


LIBNUM=5 




10-40 




U 


BBX 


1-08 








CTAPH V 


BLKDATA 


4-06 13-08 








0000011 A 


CARCNT 


10-40 10-41, 10- 


•42, 


10-43, 10- 


0000005 A 


CLOSE 


LIBNUM=5 




12-26 




0007561 L 


CLOSECK 


12-09 10-27, 11- 


•46, 


12-43 




0007567 L 


CLOSEFILE 


12-19 12-13, 12- 


■35 
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DO* 



PATCH HISTORY 

VALUE T NAME 
CSrSUB V CLR.HRDS 



♦.<(+!* 
IS*); 
—/ 
,X >? 

:*0'«" «b 

edefgM „<<* 

■f Ikli-nopqr* 

n>»a-«stuvH 

-Cabcdefghl 

>jkl»no 
pqr \ s 
tuvwxyz 
0123A56789 



DEF/REF 
4-04 



ATTRIBUTES AND REFERENCES 



0:37:15 2/06/81 **** 
CPAGM W770 



•n 



T CONLC 



LIBNUM=14 



z 








<e<hplx 








v*fgs 








-»i : 








IX >k 








Jo#b'd" «b 








edefgM „*<* 








■f jklwnopqr* 

■5*"--StUVW 














xyz* c rC* #01 * 

3*3A7SOt J -,~l* 














-<ABCDEFGHI 








>JKLMN0 








PQR \ S 








TUVWXYZ 








0123456789 








1 


T 


CONSC 


LIBNUM=14 


0007355 


L 


CPAGM 


1-31 


0111432 


L 


CPATCH 


1-36 


0112562 


L 


CPATCH1 


1-37 


0114107 


L 


CPATCH2 


1-38 18-24 
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E04 



PATCH HISTORY 

VALUE T NAME 

0115073 L CPATCH3 
0121236 L CPATCH7 
U CTAPH 



DEF/REF 

1-39 
1-40 



ATTRIBUTES AND REFERENCES 



0:37:15 2/06/81 **** 
CPAGM W770 



<•«+(« 








!$*); 








— / 








,X >? 








:*a'~" 








n«<* 








T 








«)*■-» 






















-CABCDEFGHI 








>JKLMNO 








PAR \ S 








TUVWXYZ 








0123456789 








T 


DELLC 




LIBNUM=14 


U 


EOS 






J 


ESS2 


1-10 




1 J 


ESS2E 


1-09 




0007355 L 


EXPAGREO 


7-01 


3-01 


1 J 


FIELD 


1-09 




0007413 L 


FINDPAGE 


8-20 


7-27 


0007637 L 


GETOPAGE 


14-15 


9-20, 12-22 


0007634 L 


GET0PAGE1 


14-01 


12-28 


0000065 A 


HGXT 




LIBNUM=10 13-38 


LAYOUT V 


HGAREA 


4-09 


13-30, 13-30, 13-30 


LAYOUT V 


I_OBUF 


4-10 


16-10 


'ILLEGAL CON 








OITIONAL IN 








THE IF MACRO'T 


IFERR0R1 






'DATA > OR 








DATA < IS 








MEANINGLESS 








, USE DATA - 








= 0' T 


IFERR0R2 






•TWO CONSTAN 








TS ARE BEING 








COMPARED IN 








IF MACRO' T 


IFERR0R3 






•AN ITEM WAS 
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• 


• • • ... 


• • • 




PATCH HISTORY 


0:37:15 2/06/81 **** 




VALUE T NAME DEF/REF ATTRIBUTES AND REFERENCES 

COMPARED TO 

SOMETHING 
THER THAN A 

CONSTANT' T IFERROR4 
•DESTINATION 

OF AN « STA 
TEMENT IS A 

CONSTANT' T IFERROR5 
•ATTEMPTING 
TO SET ITEM 
« TO SOMETHI 
NG OTHER THA 
N A CONSTANT'T IFERROR6 
'ITEM MAY ON 
LY USE THE = 

AND -= COND 
ITIONALS' T IFERR0R7 

0007727 L IFS124 16-29 16-27 
0007737 L IFS128 16-39 16-37 


CPAGM W77D 






0007745 L IFS132 17-05 17-03 


.. •■ "-' ' 






0114514 L IFS145 18-35 18-33 








0000001 A LOGBLKAD 5-48 H=20 S*0 N«1 CL«3 10-35 








'SEGTABENT' T L0NAMJ.OGBLK 








AD 








'PCB' T LONAM OP 








•HEADER' T LONAM RCRDLG 








•SEGTABENT' T LONAM RGTBRO 








•PCB' T LONAM RTNH4 








•PCB* T LONAM RTNL16 








•PCB' T LONAM ROSAVE 








•PCB' T L0NAM~R1SAVE 








•ENTAB' T LONAM SEGNO 








'PCB' T LONAM URDCNT 








CTVTAB V MXOVST LIBNUM*14 16-32 


. 






14 P MXOVSTX XCSY 








SUB LIBNUM-14 








0007746 L MAPCHK 18-01 3-02 








0007420 L MAPSET 9-01 






1 


0007433 L MASKGEN 9-23 9-25 








MASACS V MAXWDS 4-11 16-26, 16-28 








«. < J* 








Ts*>; 








"J > 




' 
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604 



PATCH HISTORY 






VALUE 


T 


NAME 


DEF/REF 


ATTRIB 


/X__? 










:#S'=" ab 










cdefghl n < <+ 










•f jklmnopqr* 
a's»--$tuvM 


















xyz» L iO»° 1 * 

345«7*ofJ 1 ]^ 


















-CABCDEFGHI 










>JKLMN0 










P«R \ S 










TUVWXYZ 










0123456789 










• 


T 


MICODETR 




LIBNUM-10 


CSYSUB 


V 


MOVST 


4-05 




•3E790279' 


T 


MRNO 






BLHMA 


V 


MSFCLVl 


4-01 


13-30 


0007604 


L 


NOLOAD 


12-39 


10-25 


0000000 


A 


OP 


5-04 


W=1 S«4 


CTAPH 


V 


OPENTCB 


10-38 


10-38 



ATTRIBUTES AND REFERENCES 



0:37:15 2/06/81 **** 
CPAGM H770 



N*0 CL«3 3-03, 10-30, 10-32, 12-21, 14-29, 18-30, 18-31 



<.<(AON 










X$*>; 










-s/ 










,x >? 










'-.Ita'l" ab 










edefgM „<<♦ 

-f- jklnnopqr" 

*>ia--stuvw 


























xyz^ L rC* ,01z 

3*S»7i9fJ^J/ 


















-CIBCLEFGHI 










>JKLMNO 










PAR \ S 










LLLMLYZ 










0123456789 


T 


OPTR 






0000150 


A 


ORG 000247 


13-23 




0000160 


A 


ORG 000257 


14-03 




0000202 


A 


ORG 000365 


16-43 




0000215 


A 


ORG 000372 


18-20 




0000217 


A 


ORG 000400 


18-30 







U 


P 






TTYTBL 


X 


PXAGEMON 


13-18 


13-18 


CTVTAB 


V 


PXMRY 




LIBNUM«=14 



13-14 
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PATCH HISTORY 


VALUE 


T 


NAME t 


1* 


P 


PJtMRYXJtTTYA 
PP 


0OO00O1 


A 


PAGCLNT 


CTSO 


V 


PAGEMAP 


0007700 


L 


PAGEUN 


0007377 


L 


PAGMON 


0007367 


L 


PAGMUST 


CTSD 


V 


PCB 


TTYAPP 


V 


PMRY 


0000004 


A 


POSITION 


0007550 


L 


PRECLOSECK 


CTVTAB 


V 


RXEQR 


14 


P 


RXEQRX xctap 

H 

RAO 


14 


P 


16 


P 


RA1 


0000000 A 


RCRDLG 


0000001 


A 


READ 


0007530 


L 


READBEGIN 


0007536 


L 


READSTAT 


0007501 


L 


REOPEN 


0007516 


L 


REPOS 


CTAPH 


V 


REQR 


0000000 


A 


RGTBRO 


• LOGICAL BL 






OCX ADDRESS 






ON PAGEMON F 






ILE' 


T 


RMK LOGBLKAD 


i ■ 


T 


RMK OP 


' LENGTH OF 






RECORD' 


T 


RMK RCRDLG 


' RIGHT BROT 






HER (SEGMENT 






NO.)' 


T 


RMK RGTBRO 


•RETURN ADDR 






. HIGH BITS' 


T 


RMK RTNH4 


•RETURN ADDR 






. LOW BITS' 


T 


RMK RTNL16 


•RO SAVE ARE 






A' 


T 


RMK ROSAVE 


'R1 SAVE ARE 






A' 


T 


RMK R1SAVE 


' SEGMENT NO 






• 


T 


RMK SEGNO 


'COUNT OF WO 






RDS MOVED' 


T 


RMK WRDCNT 


0000000 


A 


RTNH4 



A05 



DEF/REF ATTRIBUTES AND REFERENCES 



0:37:15 2/06/81 **** 
CPAGM W77D 



4-07 
16-01 
8-01 
7-21 
4-08 
13-14 



10-39, 11-07, 
10-12, 18-37 



11-28, 11-44, 12-26 



LIBNUM=14 
LIBNUM=5 

9-11, 9-28, 

3-05, 11-28 

3-04 

7-17 

7-12, 8-10, 10-29, 10-33, 11-21, 11-23, 12-20, 13-06, 14-21, 16-16, 16-34, 18-30 



LIBNUM=5 
11-41 11-30, 12-04 
LIBNUM=14 

LIBNUM=14 
LIBNUM=3 



11-07 

11-06, 11-27, 11-43, 12-25 



7-12, 7-13, 7-14, 7-25, 7-26, 8-10, 8-11, 
10-15, 10-35, 11-04, 14-21, 14-25, 14-27, 14-28, 14-29, 16-10, 



""A 

N=0 



LIBNUM=3 
16-34, 16-41 
5-30 W=14 S=4 
LIBMJM=5 
11-20 11-09 
11-37 
11-02 
10-31, 10-44, 11 



11-24 
10-34 
11-03 
11-06 
5-47 



7-15, 8-15, 
18-37, 19-06 

CL=3 
11-28 



■16 



8-12, 8-18, 8-19, 10-11, 
16-11, 16-12, 16-13, 16-20 



W=10 S=10 N*0 CL=3 



8-17, 9-11, 9-18, 9-27, 9-31, 10-12, 10-23, 12-10, 16-19, 
16-14, 16-15 



10-16, 10-17 



5-03 W=4 S=0 N=0 CL«3 7-25, 8-18, 14-23 
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BOS 



PATCH HISTORY 


















0:37:15 2/06/81 **** 


VALUE 


T 


NAME DEF/REF 


ATTRIBUTES 


AND REFERENCES 












CPAGM W77D 


0000001 


A 


RTNL16 


5-06 


H=20 S»0 N=1 


CL=3 


7-26, 


8-19, 


14-25 











R 


RO 




LIBNUM=3 


7-13, 8-11, 


9-11, 


9-17, 


9-24, 


9-26, 


9-28, 


9-29, 10-11, 10-12, 10-29, 










10-30, 10-32, 


10-33, 11-08, 


11-21, 


11-22, 


11-23, 


11-29, 


11-45, 


12-20, 12-21, 12-27, 13-05, 










13-06, 13-09, 


13-30, 14-21, 


14-23, 


14-27, 


16-10, 


16-13, 


16-19, 


16-20, 16-25, 16-26, 16-30, 










16-34, 18-36, 


19-01, 19-03, 


19-08, 


19-09 










0000123 


A 


ROXF 




UBNUM=10 


13-38 














0000002 


A 


ROSAVE 


5-07 


H=20 S=0 N=2 


CL=3 


7-13, 


8-11, 


14-27 








1 


R 


R1 




LIBNUM=3 


7-14, 8-12, 


9-31, 


10-35, 


11-04, 


14-22, 


14-23, 


14-24, 14-25, 14-26, 14-28, 










18-30, 18-31, 


18-37 














0000003 


A 


R1SAVE 


5-08 


W=20 S=0 N=3 


CL=3 


7-14, 


8-12, 


14-28 








16 


R 


R14 




LIBNUM=3 


8-13, 16-11, 


16-14 












17 


R 


R15 




LIBNUM=3 


8-14, 16-12 














2 


R 


R2 




LIBNUM=3 


7-12, 7-15, 


7-16, 


7-22, 


8-10, 


8-15, 


8-18, 


8-23, 9-12, 9-14, 9-15, 










9-18, 9-29, 


16-14, 16-15, 


16-22, 


16-36, 


19-01, 


19-04, 


19-05, 


19-06 


3 


R 


R3 




LIBNUM=3 


7-23, 7-25, 


8-17, 


8-19, 


9-18, 


9-19, 


9-26, 


9-27, 10-10, 10-18, 12-12, 










12-14, 16-2:, 


16-23, 16-25, 


16-28, 


16-30, 


16-33, 


19-06, 


19-07 




4 


R 


R4 




LIBNUM=3 
16-23, 16-33, 


7-24, 7-26, 
16-36, 16-38, 


10-15, 
16-40, 


10-16, 
16-41, 


10-17, 
17-02 


10-24, 


16-16, 


16-17, 16-18, 16-19, 16-20, 


5 


R 


R5 




LIBNUM=3 


10-18, 10-19, 


10-20, 


10-26, 


10-28, 


12-42 






6 


R 


R6 




UBNUM=3 


8-23, 8-24, 


8-25, 


9-12, 


9-13, 


10-14, 


10-24, 


12-11, 12-12, 13-02, 13-04 


7 


R 


R7 




LIBNUM=3 


10-23, 10-26, 


10-28, 


12-10, 


12-42, 


13-09 






10 


R 


R8 




LIBNUM=3 
19-04, 19-07 


9-13, 9-14, 


9-19, 


9-24, 


9-25, 


10-19, 


10-20, 


10-22, 10-23, 12-10, 19-03, 


0000000 


A 


SEGNO 


6-05 


H=10 S=10 N= 


3 CL»3 


7-22, 


8-23, 


8-24 








0007445 


L 


SEGSEARCH 


10-01 
















•--. 


0007*52 


L 


SEGSRCH 


10-13 


12-15 














.. 


SE6000 


V 


SEGTAB 


4-12 


10-11 
















0000236 


A 


SERNO 062124 


21-13 


















0000232 


A 


SERNO 063014 


21-02 


















•AXBT' 


T 


SPHORO 




















0000011 


A 


STATST 




LIBNUM=5 


11-44 












1 


0000000 


A 


SV REG 




















BLMMA 


V 


TEMPINH 


4-02 


14-08 














. 


0116774 


L 


TFAPCH2" 


1-42 






■ 












0600000 


L 


TPATCH 


1-44 














. . 


■ 


0000232 


A 


TR 012277 


21-02 


















0000236 


A 


TR~012416 


21-13 


















0000202 


A 


TR~12277 


16-43 
















. 


0000217 


A 


TR~12416 


18-20 


18-30 
















0000160 


A 


TR~3E790279 


13-23 


14-03 
















0007747 


L 


TRORG 


13-23 


14-03, 16-43, 


18-20 

















U 


TTYAPP 




















0000002 


A 


TTYO 




LIBNUM=12 


13-16, 13-17 








-. . 






0000004 


A 


TTYO DEC 




LIBNUM=12 


13-16 












' 


0000002 


A 


TTYOCNT 


13-18 






t 


• 


,' 











U 


TTYTBL 




















CTVTAB 


V 


WXAIT 




LIBNUM=14 


10-47, 11-12, 


11-33, 


11-49, 


12-31, 


14-10 






14 


P 


WXAITX XCBLM 




LIBNUM=14 
















CBLM 


V 


VAIT 


4-03 
















■ 
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# 
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C05 



PATCH HISTORY 

VALUE T NAME PEF/REF ATTRIBUTES AND REFERENCES 
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CPAGM W77D 



0000000 A WRDCNT 
1 J 3ACC 



5-05 W«13 S=5 N=0 CL=3 
1-09 



11-21, 11-22/ 11-23, 16-16, 16-17, 16-18, 16-40, 16-41 



NO FLAG(S) FOUND IN THIS ASSEMBLY 
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